home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 013a / dmplas11.zip / DLTEST-F.BAS < prev    next >
BASIC Source File  |  1991-08-15  |  2KB  |  34 lines
  1. 10 FILE$="DLTEST-F.PRN"
  2. 20 CR$=CHR$(13) :LF$=CHR$(10) :CRLF$=CR$+LF$ :ESC$=CHR$(27)
  3. 25 ONELF$=CR$+ESC$+"J"+CHR$(12)
  4. 30 PRINT CRLF$:PRINT "     Creating ";FILE$;" - Please wait "
  5. 40 OPEN "O",#1,FILE$
  6. 50 PRINT#1,ESC$;"@";"   DLTEST-F  Graphics Commands  -- each block is 240 dots wide";CRLF$
  7. 60 GOTO 210
  8. 70 PRINT#1,"Graphics command ESC '*'";G;"... ";D$;D;"dpi"
  9. 140 FOR I=1 TO 2 :PRINT ".";
  10. 141 PRINT#1, ESC$;"*";CHR$(G);CHR$(240);CHR$(0);
  11. 142 FOR J=1 TO 120 :PRINT#1,CHR$(170);CHR$(85);
  12. 143 NEXT J: PRINT#1,CRLF$; :NEXT I: PRINT#1,ONELF$;
  13. 160 FOR I=1 TO 2 :PRINT ".";
  14. 161 PRINT#1, ESC$;"*";CHR$(G);CHR$(240);CHR$(0);
  15. 162 FOR J=1 TO 30 :PRINT#1,CHR$(170);CHR$(255);CHR$(170);CHR$(255);CHR$(85);CHR$(170);CHR$(255);CHR$(85);
  16. 163 NEXT J: PRINT#1,CRLF$; :NEXT I: PRINT#1,ONELF$;
  17. 180 FOR I=1 TO 2 :PRINT ".";
  18. 190 PRINT#1, ESC$;"*";CHR$(G);CHR$(240);CHR$(0);STRING$(240,255)
  19. 200 NEXT I: RETURN
  20. 210 PRINT#1, ESC$;"3";CHR$(24);
  21. 220 DATA 60,"or ESC 'K'... Normal",120,"or ESC 'L'... Double",120,"or ESC 'Y'... Dbl speed"
  22. 230 DATA 240,"or ESC 'Z'... Quadruple",80,"(no equivalent) Semi-double"
  23. 235 DATA 72,"(no equivalent) Plotter"
  24. 240 DATA 90,"(no equivalent) CRT Graphics",144,"(no equivalent) Dble Plotter"
  25. 250 FOR G= 0 TO 7: READ D,D$ :PRINT ".";
  26. 260 GOSUB 70: PRINT#1, CRLF$
  27. 270 NEXT G
  28. 280 PRINT#1, ESC$;"3";CHR$(36);
  29. 290 PRINT#1,"Note: ESC '*' 7 ... is not accepted by all dot matrix printers"
  30. 310 PRINT#1, CHR$(12);ESC$;"@";
  31. 320 CLOSE #1
  32. 330 SYSTEM
  33. 340 END
  34.